home *** CD-ROM | disk | FTP | other *** search
/ Virtual Vibrations / Virtual Vibrations.iso / mac / Virtual Vibrations / STAR.DXR / 00012.ls < prev    next >
Encoding:
Text File  |  1994-10-28  |  738 b   |  45 lines
  1. on enterFrame
  2.   global voice
  3.   if not (voice = 1) then
  4.     sound stop 2
  5.   end if
  6.   puppetPalette("bbs palette")
  7.   if the soundEnabled = 0 then
  8.     puppetSprite(48, 1)
  9.     set the castNum of sprite 48 to cast "SoundOff5"
  10.   end if
  11.   updateStage()
  12. end
  13.  
  14. on mouseDown
  15.   if (the clickOn >= 17) and (the clickOn <= 20) then
  16.     BUTTONDOWN()
  17.   else
  18.     if the clickOn = 48 then
  19.       puppetSound("click")
  20.     end if
  21.   end if
  22. end
  23.  
  24. on mouseUp
  25.   puppetSprite(48, 0)
  26.   if the clickOn = 20 then
  27.     RETURNBUTTON()
  28.   end if
  29.   if the clickOn = 17 then
  30.     INFOBUTTON()
  31.   end if
  32.   if the clickOn = 18 then
  33.     HIDEBUTTON()
  34.   end if
  35.   if the clickOn = 48 then
  36.     CHANGESOUND5()
  37.   end if
  38. end
  39.  
  40. on exitFrame
  41.   global fixpal
  42.   go(the frame)
  43.   patchpal()
  44. end
  45.